#!/usr/bin/perl
#
# parse_flags.pl - flags parser. takes flags from stdin
#

$data = join '', <STDIN>;
while ( $data =~ /submit=(.{32})/g )
{
    print "$1\n";
}
